home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arvis1 / mainfrm.frm < prev    next >
Text File  |  1999-10-09  |  62KB  |  1,866 lines

  1. VERSION 5.00
  2. Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
  3. Begin VB.Form MainSmall 
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "QuadBall"
  6.    ClientHeight    =   9000
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   12000
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    BeginProperty Font 
  13.       Name            =   "Times New Roman"
  14.       Size            =   8.25
  15.       Charset         =   0
  16.       Weight          =   400
  17.       Underline       =   0   'False
  18.       Italic          =   0   'False
  19.       Strikethrough   =   0   'False
  20.    EndProperty
  21.    Icon            =   "MainFrm.frx":0000
  22.    LinkTopic       =   "Form1"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    Moveable        =   0   'False
  26.    ScaleHeight     =   9000
  27.    ScaleWidth      =   12000
  28.    StartUpPosition =   2  'CenterScreen
  29.    WindowState     =   2  'Maximized
  30.    Begin VB.PictureBox StatBox 
  31.       Appearance      =   0  'Flat
  32.       AutoSize        =   -1  'True
  33.       BackColor       =   &H00C000C0&
  34.       BorderStyle     =   0  'None
  35.       BeginProperty Font 
  36.          Name            =   "MS Sans Serif"
  37.          Size            =   8.25
  38.          Charset         =   0
  39.          Weight          =   400
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       ForeColor       =   &H80000008&
  45.       Height          =   1050
  46.       Left            =   0
  47.       ScaleHeight     =   1050
  48.       ScaleWidth      =   1185
  49.       TabIndex        =   34
  50.       Top             =   0
  51.       Visible         =   0   'False
  52.       Width           =   1185
  53.       Begin VB.Label OK 
  54.          AutoSize        =   -1  'True
  55.          BackStyle       =   0  'Transparent
  56.          Caption         =   "Continue"
  57.          BeginProperty Font 
  58.             Name            =   "Times New Roman"
  59.             Size            =   36
  60.             Charset         =   0
  61.             Weight          =   700
  62.             Underline       =   0   'False
  63.             Italic          =   0   'False
  64.             Strikethrough   =   0   'False
  65.          EndProperty
  66.          ForeColor       =   &H00008000&
  67.          Height          =   825
  68.          Left            =   8460
  69.          TabIndex        =   48
  70.          Top             =   7650
  71.          Width           =   2805
  72.       End
  73.       Begin VB.Label Label9 
  74.          AutoSize        =   -1  'True
  75.          BackStyle       =   0  'Transparent
  76.          Caption         =   "Game Statistics"
  77.          BeginProperty Font 
  78.             Name            =   "Times New Roman"
  79.             Size            =   48
  80.             Charset         =   0
  81.             Weight          =   400
  82.             Underline       =   -1  'True
  83.             Italic          =   0   'False
  84.             Strikethrough   =   0   'False
  85.          EndProperty
  86.          ForeColor       =   &H00FFFF00&
  87.          Height          =   1095
  88.          Left            =   900
  89.          TabIndex        =   45
  90.          Top             =   270
  91.          Width           =   5985
  92.       End
  93.       Begin VB.Label SavedPlanets 
  94.          AutoSize        =   -1  'True
  95.          BackStyle       =   0  'Transparent
  96.          Caption         =   "Neptune"
  97.          BeginProperty Font 
  98.             Name            =   "Times New Roman"
  99.             Size            =   36
  100.             Charset         =   0
  101.             Weight          =   700
  102.             Underline       =   0   'False
  103.             Italic          =   0   'False
  104.             Strikethrough   =   0   'False
  105.          EndProperty
  106.          ForeColor       =   &H0000FFFF&
  107.          Height          =   825
  108.          Index           =   3
  109.          Left            =   4770
  110.          TabIndex        =   44
  111.          Top             =   4455
  112.          Width           =   2580
  113.       End
  114.       Begin VB.Label SavedPlanets 
  115.          AutoSize        =   -1  'True
  116.          BackStyle       =   0  'Transparent
  117.          Caption         =   "Mars"
  118.          BeginProperty Font 
  119.             Name            =   "Times New Roman"
  120.             Size            =   36
  121.             Charset         =   0
  122.             Weight          =   700
  123.             Underline       =   0   'False
  124.             Italic          =   0   'False
  125.             Strikethrough   =   0   'False
  126.          EndProperty
  127.          ForeColor       =   &H0000FFFF&
  128.          Height          =   825
  129.          Index           =   2
  130.          Left            =   4770
  131.          TabIndex        =   43
  132.          Top             =   3735
  133.          Width           =   1635
  134.       End
  135.       Begin VB.Label TotalBounces 
  136.          AutoSize        =   -1  'True
  137.          BackStyle       =   0  'Transparent
  138.          Caption         =   "TotalBounces"
  139.          BeginProperty Font 
  140.             Name            =   "Times New Roman"
  141.             Size            =   36
  142.             Charset         =   0
  143.             Weight          =   700
  144.             Underline       =   0   'False
  145.             Italic          =   0   'False
  146.             Strikethrough   =   0   'False
  147.          EndProperty
  148.          ForeColor       =   &H0000FFFF&
  149.          Height          =   825
  150.          Left            =   7200
  151.          TabIndex        =   42
  152.          Top             =   6615
  153.          Width           =   4185
  154.       End
  155.       Begin VB.Label TopSpeed 
  156.          AutoSize        =   -1  'True
  157.          BackStyle       =   0  'Transparent
  158.          Caption         =   "TopSpeed"
  159.          BeginProperty Font 
  160.             Name            =   "Times New Roman"
  161.             Size            =   36
  162.             Charset         =   0
  163.             Weight          =   700
  164.             Underline       =   0   'False
  165.             Italic          =   0   'False
  166.             Strikethrough   =   0   'False
  167.          EndProperty
  168.          ForeColor       =   &H0000FFFF&
  169.          Height          =   825
  170.          Left            =   4005
  171.          TabIndex        =   41
  172.          Top             =   5490
  173.          Width           =   3090
  174.       End
  175.       Begin VB.Label SavedPlanets 
  176.          AutoSize        =   -1  'True
  177.          BackStyle       =   0  'Transparent
  178.          Caption         =   "Earth"
  179.          BeginProperty Font 
  180.             Name            =   "Times New Roman"
  181.             Size            =   36
  182.             Charset         =   0
  183.             Weight          =   700
  184.             Underline       =   0   'False
  185.             Italic          =   0   'False
  186.             Strikethrough   =   0   'False
  187.          EndProperty
  188.          ForeColor       =   &H0000FFFF&
  189.          Height          =   825
  190.          Index           =   1
  191.          Left            =   4770
  192.          TabIndex        =   40
  193.          Top             =   2970
  194.          Width           =   1785
  195.       End
  196.       Begin VB.Label TotalScore 
  197.          AutoSize        =   -1  'True
  198.          BackStyle       =   0  'Transparent
  199.          Caption         =   "SCORE"
  200.          BeginProperty Font 
  201.             Name            =   "Times New Roman"
  202.             Size            =   36
  203.             Charset         =   0
  204.             Weight          =   700
  205.             Underline       =   0   'False
  206.             Italic          =   0   'False
  207.             Strikethrough   =   0   'False
  208.          EndProperty
  209.          ForeColor       =   &H0000FFFF&
  210.          Height          =   825
  211.          Left            =   4005
  212.          TabIndex        =   39
  213.          Top             =   1755
  214.          Width           =   2490
  215.       End
  216.       Begin VB.Label Label8 
  217.          BackStyle       =   0  'Transparent
  218.          Caption         =   "Total Number Of Bounces"
  219.          BeginProperty Font 
  220.             Name            =   "Times New Roman"
  221.             Size            =   27.75
  222.             Charset         =   0
  223.             Weight          =   400
  224.             Underline       =   0   'False
  225.             Italic          =   0   'False
  226.             Strikethrough   =   0   'False
  227.          EndProperty
  228.          ForeColor       =   &H00